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CCCCCCCC =H HH KK KK DDDDDDDD MM MM 000000 
cccccccc HH HH KK KK DDDDDDDD MM MM 000000 

cc HH HH KK KK OD DD MMMM MMMM 00 00 

cc HH HH KK KK DD DD MMMM MMMM 00 00 

cc HH HH KK KK dD DD MM MM MM «(O00 00 

cc HH HH KK KK DD DD MM MM MM «(00 00 

cc HHHHHHHHHH §=KKKKKK DD DD MM MM 00 00 

cc HHHHHHHHHH §=KKKKKK DD DD MM MM 00 00 

cc HH HH KK KK DD DD MM MM 00 00 

cc HH HH KK KK DD DD MM MM 00 00 

cc HH HH KK KK DD DD MM MM 00 00 eee 

cc HH HH KK KK DD DD MM MM 600 00 cess 
CCCCCCCC HH HH KK KK DDDDDDDD MM MM 000000 eee 
CCCCCCCC HH HH KK KK DDDDDDDD MM MM 000000 eee 


LLLLLLLLiL 
LLLLLLLLLL 


CHKDMO 


Pt i) ie se de 


MEUM $9 OBNOAVE WN ("OOD NOUE WI“ OOONOUE We 


Bee Be Be Oe Oe Be Oe Oe ee Se Oe Se Oe Oe Be Se Se SH Oe Oe Se Se Oe HSH Se Oe Oe Oe Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Os Oe Os Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Oe Oe Be ee 


a a a kk kk tt 8 kk nt a ts Ss ss ts I IOOOO 


7 
1S-sep-t9R 25:59:22 vanett lingo 32 


MODULE CHKDMO ( 


beeyAee (OL 15859) « 


ew 


BEGIN 


. 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND correo 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH 
ROV AILABLE 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TWARE IS HEREBY 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

ae eokat ite. LD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 


ee ee ee EE ee 


This routine dismounts the volume in use if it should be. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREST!ON DATE: 29-Apr-1977 17:19 
i MODIFIED BY: 


V03-026 HHO0049 Hai Huang 16-Aug-1984 
Call IOCSDALLOC nt to handle deallocation on dismount. 


V03-025 HHO0047 uene 13-Aug-1984 
Correct LOCSDALLOL ‘oewet nkage (UCB address in R5). 


v03-024 ACG0441 Andrew C. Goldstein, 9-Aug-1984 16:31 
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if. -1 9: VAX-11 Bliss-32 V4.0-742 

12-808-1 382 $3: 38: %§ DISKSVMSMASTER:CF11X.SRCICHKOMO.B32; "a9 * af 
Rework dismount ae to eliminate races and 
uninterlocked processin 


v03-023 ACG0438 Andrew C. Goldstein, 2-Aug-1984 11:39 


2 
3 


$¢ Release cache locks when deallocating volume caches; 
o7 use central dequeve routine. 
65 v03-022 LMP0275 L. Mark Pilan 23-Jul-1984 14:08 
$8 Don't try to delete an uninitialized ACL. 
v03-021 CDS0004 Christian D. Saether 20-Jun-1984 


Tem ore Re i the process diocnt around the 


0 $0] t will never be blocked. Also raise 
4! ASTCNT. - "i will not fail for that reason. 
7 v03-020 CDS0003 Christian D. Saether 8-May-1984 
74 Have UPDATE_DIRSEQ routine queue for exclusive 
t% and cancel Conversion of the volume lock to Yavalidate 
7 the ucb dirseq counter. Do not call the routine 
a from the check_dismount routine anymore. 
79 v03-019 CDS0002 Christian D. Saether 22-Apr-1984 
Use routine LOCK_COUNT. 
v03-018 ACG0415 Andrew C. Goldst ot, 9-Apr-1984 10:56 


Interface change to ACL _DELET EAC 
9-Apr-1984 


v03-017 eeeees ang 
Change R2 thru as A NNOP ESERVE in the Linkage of the 
EXES EAPGDSIZ routine. 


V03-016 LMP0221 Pilan 27-Mar-1984 13:39 
Change a _ownuice to KORBSC NOUNER and UCB$W_VPROT to 
ORBSW_P 

v03-015 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:42 
Add AST parameter so that impure storage is fully based 

v03-014 CDS0011 Christian D. Saether 35-Mar-1984 


Remove UNLOCK_XQP call, It is done prior to this 


Bet eese locks in final stages of dismount so that 
getlki check on volume lock is not confused by counting 
an allocation lock for this request. 
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378 point now. ATso KILL “CACHE hronene in CLEANUP. 
1 0100 v03-013 CDS0010 Christian D. Saether 10-Feb-1984 
1 101 Changes to dealloca ° AQB and buffer when Last 
1 1 ¢ dismount occurs on 
' : Replace FLUSH_FID sail with KILL_CACHE call. 
1 105 v03-012 CDS0009 Christian D. Saether 29-Dec-1983 
: ' Use L_NORM Linkage and BIND_COMMON macro. 
1 108 v03-011 CdDS0008 Christian D. Saether 16-0¢ t-1983 
: +44 Dequeue blocking lock. 
} +f v03-010 ¢€DS0007 Christian D. Saether 21-Sep-1983 
1 118 
1 0114 


ro 
eheb 
os ™ ~ 
bt 
2o 
~~ 
oe 
=" 
wu 
Gan 
oo 
ny 
on 
o=<x 
-—> 
RT 
, a 
. 
s 
Se 
ne 
m 1 
Dw 
™~m 
_ 
= 
—s 
Se 
xo 
. 6 
$3 
+e 
i) 
o 
x 
x 
2 
@ 
wa 
Nn 


$2 
38 


1 
1 v03-009 a 039 Paul R. DeStefano 13-Sep-1983 
1 dified to no longer Clear volume valid when Pai smount ing 
: the volume, 
v03-008 4 aes Christian D. Saether 18-Aug-1983 


vepee yotuse lock. 
s the last volume lock to be released, then 
Bloce the device lock value block. 


v03-007 cpS0005 Christian D. Saether 2-Aug-1983 
Remove reference to obselete RVX structure. 

v03-006 CDS0004 Christian D. Saether 11-Mar-1983 
Also need BYPASS privilege. 

v03-005 LMP0071 L. Mark Pilant, 20-Jan-1983 13:09 


Deallocate any Att segpenys ¢ associated with directory FCB's 
left in the cache. is includes correctly calling 
ACL_DELETEACL with the correct arguments. 


VW OOONOUE WN OOOO 


' 
i Part of this routine runs at IPL$_SYNCH, so it must be locked into the 
working set. 


LOCK_CODE; 


FORWARD ROUTINE : 
CHECK DISMOUNT : L_NORM NOVALUE , ! check volume for dismount 
UPDATE_DIRSEQ : L_NORM; : bump volume directory sequence count 
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v03-004 cCdS0003 Christian D. Saether 13-Jan-1983 
Save and restore both peBSa  PRIV and PHD$Q_PRIVMSK. 
9 v03-003 ¢CDS0002 Christian D. Saether 28-Dec-1982 
re Need PHY privilege for unload and available functions. 
$5 v03-002 CDS0001 C Sae 31-Jul-1982 
re Change Q10W to Q10 osth “completion AST. 
45 v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 
$8 Remove the addressing mode module switch. 
48 v02-007 ACG0226 Andrew C. Goldstein, 24-Nov-1981 22:16 
3 Issue 10$ _AVAILABLE on DiSMOUNT /NOUNLOAD 
51 V02-006 ACG0167 Andrew C. Goldstein renter -1980 19:25 
26 or Previous revision history moved to F11B.REV 
54 
55 
55 LIBRARY opyeet Jee ARY:L 9,152": 
38 REQUIRE ‘*SRC$:FCPDEF .B32'; 
60 
re 
85 
64 
65 
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CHK s.s0 -1984 23:59: VAX=11 Bliss-32 V4.0-742 4 C 
FO. e000 127808- 1382 13:30:46 DISKSVMSMASTER:CF11X.SRCJCHKDMO.B32; 729 23 vo 
3 178 116) } GLOBAL ROUTINE CHECK_DISMOUNT : L_NORM NOVALUE = } 
3 174 1188 1 {4 : 
: 175 11 1: : 
; 176 i 5 1 i FUNCTIONAL DESCRIPTION: ‘ 
: 178 1167 1 This routine checks if the volume in use is marked for dismount and : 
3 ; 1198 : } idle. If so, it completes the dismount. ° 
> 181 1170 1 | CALLING SEQUENCE: ; 
; : ¢ at A ' CHECK _DISMOUNT () ; 
: i : 1178 INPUT PARAMETERS: 3 
: 4 1175 1: _ ; 
: 187 1176 1 ' IMPLICIT INPUTS: : 
ss 1177 1: CURRENT_UCB: UCB of unit in use ; 
; 189 18 1} CURRENT_VCB: VCB of volume in use : 
: 191 4 9 : ; OUTPUT, PARAMETERS: : 
; 498 1188 1 | : 
3 19% i i IMPLICIT OUTPUTS: : 
; 196 1185 1: ; 
A HB] | touring uz : 
: 199 1188 1 F 
; 200 1189 1 | SIDE EFFECTS: ; 
3 01 1190 1! Volume dismounted if appropriate > 
; 0¢ 1191 1! : 
: 20 119¢ 1 i-- : 
: 08 119% ! BEGIN : 
; 1195 F 
3 69 + LINKAGE é 
3; 208 119 DALLOC_DEV = JSB (REGISTER = 4, REGISTER = 5) : 
; 209 1198 : ay be (3) 3 
: 210 1199 ESERVE (2, 4, 5) 

+ 211 1200 NOTUSED (6, 7, 8 9, 10, 

: $ig 1502 $ LocaL 

: 214 1 88 M ' t Loop. index 

> 215 1 Oe RVT_LENGTH, r of entries in RVT 

3 : 5 RVT : REF BBLOCK; i address of RVT (or UCB if not a set) | 

: 218 1 09 EXTERNA 

: 219 1208 “crigat PCB : ADDRESSING_MODE (GENERAL), ' PCB address 

: 0 1209 TL$GL"P : ADDRESSING MODE (GENERAL), i PHD address 

: 1 10 fotset~ ~AOBLIST : REF BBLOCK”ADDRESSING_MODE (ABSOLUTE); ! AQB Listhead | 

; 5 1g BIND_ COMMON; 

Py | 

: 5 1214 2 LINKAGE 

; § 1 13 DEAP = JSB (REGISTER=0, REGISTER=1) : NOPRESERVE (2,3,4,5); 

i 228 1319 $ EXTERNAL ROUTINE | 


Wr—Oo”o 


ther “Cont 
WAIT _FOR_AST 


CONTINUE_THREAD : 


i § eh 


: LINORM ! Determ 
: LINORM "NOVALUE | 


7 
a 
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VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CF11X 


convert/dequeue access lock. 
mine count of locks granted. 
ADDRESSING_MODE (GENERAL 

exit thre ntil complet on ast 


ad u 
L_NORM NOVALUE’ ADDRESS ING “RODE (GENERAL 


moletion ast to saan “thread 


« SRCJCHKDMO.B32; 79 


3 121 

1515 

; 1220 

; : 1 

: 1 { 1¢ 

; 5 1224 LOCK_10DB L_NORM, : foe 1/0 data base mutex 

$ $ 1225 UNLOCK_I0DB : LINORM, ! unlock 1/0 data base mutex 

; 1 § DEQ LOCK : LINORM, ! dequeue a lock 
3 1 DEACLOCATE : LINORM, ! deallocate dynamic memor Y 

: 9 1228 ie. CHANNEL L. aoe ib Sh ehenness to specified UCB 

: 240 1229 SEN RLOG : end m nema) to error logger 

> 261 1230 EXCSDEAPSDSIZ : bEAP NABDRESSING _RODE (GENERA 

3 rh} 1231 ealloc paged pool. 

: 2 1 ¢ IOCSDALLOC_DMT : DALLOC_DEV nvvnessing OnODE (GENERAL), 

3 4G 1 ' deallocate device 

3 4g : : ACL_DELETEACL; i Delete & deallocate ACL segments 

: 56 1336 | 
; 248 1237 ! Get the RVT address and iterate on the whole volume set, since deaccessing | 
; 249 1238 ! a multi-volume file could make several volumes eligible for dismount. If 

3 9 ; 4 this is not a volume set we special case and exit. | 
3 26 1241 | 
3 5 1 ¢g J2#ls 

; 254 124 RVT = CURRENT ycoryces RVTI; 
; 255 1244 IF .RVT NEQ .CORRE UCB 

; 256 1245 THEN RVT_LENGTH = “ROY RVT$SB_NVOLS]; 
3; @or 1s66 
: 258 124 dO 

3 4 : rt BEGIN 

; 1 1$20 : Declare most locals here for substantial improvement in storage allocation. 

; 3 1382 LOCAL 

: 264 125 LOCKCOUNT : INITIAL (0), ! count of volume locks 

3 1254 STS ! general status value 

; 66 1255 Lksfs : VECTOR C6], ‘ Cock status block 

3 1256 AQB : REF BBLOCK, ' address of XQP AQB 
3 1257 CACHE : REF BBLOCK, ! address of volume cache 
5 1258 ucB : REF BBLOCK, ' Local address of UCB 
3 1259 ORB : REF BBLOCK, ' local address of ORB 
3 1260 vcB REF BBLOCK, ' local address of VCB 

: 1261 FCB REF BBLOCK ' Local address of FCB 

3 : ¢ wcB REF BBLOCK: ' Local address of WCB 

: 1264 

3 { 33 UCB = .RVT; ' assume not volume set 

; 1 €$ IF .UCB NEQ .CURRENT 9 get yee if volume set 

; 68 THEN UCB = .VECTOR CRVT AVTSL_UCBLSTI, 

: : 7 ' First check the mark for dismount bit. 

3 127 

: 127 IF .UCB NEQ 0 

: 1274 THEN IF .BBLOCK CUCBCUCBSL_DEVCHAR], NEVSV_DMTJ 


-742 
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32 v4 | 

R:CF1 | 

THEN | 
| 

} 


BEGIN 
Do volume switch if necessary. 


IF .UCB_NEQ .CURRENT_UCB 
THEN SWITCH CHANNEL T.UCB); 


The volume is Pog for dismount. The remainder of the tests and the 
dismount bit twiddling must be done interlocked. 


WPoTorornoforororororonronnrn 
oo Seesce 
co VMrwn— 


99 LOCK_10DB (); 
300 SET_TPL (IPL$_SYNCH); 
30¢ ORB = -UCBCUCBSL_ORBI; 
0 VCB = .UCBLUCBS 
04 
05 N 

UNLOCK_I0DB () 

LSE 
BEGIN 


The volume is marked for dismount and idle. Set the dismount in progress 
bit to stop all further activity. 


UCBCUCB$V_DISMOUNT) = 1; 
UNLOCK_I0BB (); 


! Make an error log entry to record the dismount. 


SOOGOSGOOSOSCOO0OO0O0O0 OO OW WOW 


FUN OC CONG NEWUN OOD NAUNE WN $9 ODNAUES WN HOO ONAULS WN —OUOONOuU 


SEND_ERRLOG (0, .UCB); 


AANA NAN 


NIN ee ann eeeoe. 


ANIWAIAIAAIAIA AAI AA AAAI 
VI OOW WOU NOOO NO 


Release the device as specified in the og tre p*ynount request 


NOUS WN—OOONO US WN O0OO~n 


by issuing either an IO$_UNLOAD or an 10 ABLE function. 
BEGIN 
LOCAL 
8 QIOSTAT, 
9 PTR : REF BBLOCK, 
° SAVE_PRIV : VECTOR (4); 


Save and restore PHY_I0O privilege around the Q10. 


wr 


POPPIN IPORY 0 at ot et ot tt 


IF” VCBLVEBSO. TRANS NEG 1 
| 
| 


a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe oe ee ee ee ee ee ee ey 
AIA WAI WIAA AAAI AAAI AAAI AAAI AI AA AIA AI AA I A IPP PODIPODIPOPYIPIPYINIPOPIPONPIPIPONIPOPIPUNPYPD 


DEEPA P AAA AA AA DADA DPE PDA AAA A ASSASINS BB BEEP PP PPP PPP PPP PEO 


= ,CTLSGL_P 
5 PTR PCBs DIOCNT = .PTR (PCBS$W_DIOCNT) + 1; 
6 PTR CPCBSW-ASTCNT] = .PTR [PCBSW-ASTCNT! + 1; 
7 SAVE_PRIV 0 = .(PTR FeCBsa_PRIV}); 
4 SAVE-PRIV = .(PTR CPCBSQ~PRIVI+4); 
0 BBLOCK [PTR PCBSO_PRIVI, PRVSV_PHY 10) = 1; 
31 BBLOCK CPTR CPCBSQ~PRIVI, PRVSVBYPASS) = 1; | 


p 7 
ICHKDMO.B32;1° 9 (2) 


If this is a shared mount, raise the device lock to PW to get the 
value block, and prepare for Se, it back. If the device is not 
shared, the lock is already at EX. If the device is not cluster 


accessible, there is no lock. 


IF (LKSTS C1] = .UCB CUCBSL_LOCKID]) NEQ 0 
— -UCB CUCBSL_PID) EQC 0 


> 343 

5 344 PTR = .CTLSGL_PHD; 

: 345 SAVE_PRIV = . (PTR FEHDSO_PRIVISK}) j | 
> 346 SAVE"PRIV [3] = .(PTR CPHDSQ-PRIVMSKI+4) ; | 
: 347 BBLOCK [PTR PHDSa_PRIVMSK), PRVSV_PHY 103 = 1; | 
; 48 BBLOCK CPTR CPHDSQ"PRIVMSK], PRVSV-BYPASS] = 1: 
: 29 ? Issue an unload function if unload was requested. 
§ 26 4 

; 35 P 134 QIOSTAT = $Q10 ( 

; 34 P 134 CHAN = .J0_CHANNEL 

: 355 P 134 ASTADR = CONTINUE_fHREAD, 

; 356 P 134 ASTPRM = .BASE, 

: 357 P 134 EFN = EFN, 

; 358 P 134 FUNC = (IF TESTBITSC (UCBCUCB$V_UNLOAD)) 

; 359 P 134 THEN I10$_UNLOAD 

; 360 P 134 ELSE IO$-AVAILABLE) 

2 ee : 

; 368 5 (PTR CPHD$Q_PRIVMSK]) = .SAVE_PRIV (2); 

: 364 35 (PTR PHDSQ_PRIVESKI+4) = .SAVE_PRIV (3); 

Q o. : 

; 366 5 PTR CPCB$W_DIOCNT) = .PTR FPCBSW DIOCNT3 - 1; 

; 367 35 PTR CPCBSW-ASTCNT) = .PTR CPCBSW-ASTCNT) - 1: 

; 368 5 (PTR CPCB$O_PRIVJ) = .SAVE_PRIV [0] 

: 369 5 

: 35 

; 6 IF .QIOSTAT 

: 6 THEN WAIT_FOR_AST(); 

3 6 END; ! of block defining PTR, SAVE_PRIV, QIOSTAT 


C§OWOOOON NNN 


BEGIN 
STS = SENQ (LKMODE $K_PWMODE, 
LKSB TS 


EFN 
ASTADR 
ASTPRM 
FLAGS 


SE, 
$M’ CONVERT + LCKSM_SYNCSTS 
CKSM_NOQUOTA) ; 


IF_.STS<0,16> EQL SS$_NORMAL 
THEN ae | FOR_AST (); 
IF NOT .ST 


vuvuvvU 
a a ee a a ee le a a ee ee ee ee ed ed ed ed dd 


LCK 
LKS 
EFN 
CONT INUE_THREAD, 
.BA 
LCK 
+L 


QLESRESLESSEIRALAV=SSSNEOARANIS 


OR NOT .LKSTS 
THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error'); 


i“ = iSAVE 
(PTR CPCBSQ"PRIV]+4) = .SAVE_PRIV (1); 
| 
| 
! Determine whether this is the last (only) lock for this volume. 


DDRXEDPXADP DAA AP AAA AD PSS ass Se OP OS OOP PPA AA AAA AAA AAAAAAAAAOAO 


NAA AAAI AAA NAIA AAA AAA AAA AANA 


ae | 
15-5 Sep VAX-11 Bliss-32 V4.0-742 Pa 8 
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400 

401 

48 LOCKCOUNT = LOCK_COUNT (.VCB CVCBSL_VOLLKIDJ); 

404 ELSE | 
405 LOCKCOUNT = 1; ! always 1 if allocated. 


Now relock the 1/0 database and finish the dismount. 

Mark the volume dismounted and disconnect the VCB from the UCB. 
ha A Sy of the dirseq is masked off. This tells RMS the lock 
s disarmed. 


409 


LOCK_10DB (): 
(UCB LUCBSW tease EQ])< 15, 
L DEVCHA 


o 
oc 
= 
Oo 
memes 
wan 
ooo 
Bete te 


‘ooo 
ZDmnmmmncao 
moc 
TNMAMWM 
+ we 

'o 

= 

~ 

“uon 


uC 

UCB UCBSY~ -DismouNT = 0; 
BSL-VC 

ORBCORBSL SYS at 


ORBCORBS$L_WOR™ PROT 
ORBCORBSL_OWNER] = 0; 


' Decrement the mount count on the AQB. If it goes to zero, remove 
this AQB from the List and remember to deallocate it after we're done 
' flushing buffers a Little further on. 


AQB = .VCB CVCBS$L_AQB); 
IF (AQB CAQBS$B_MNTCNT] = .AQB CAQBSB_MNTCNT] - 1) NEQ 0 


eusent® = ° | 
| 


Set et ae et el el et et el ek et et et ek et tt et et kt ee 


WAWNANANIAIDIPINPINIPINPINPINNIDY 2 2 OO Oe ee 
NOUS WN (OO ONOUSWN —OODONOUESWN—O 


BEGIN 
LOCAL P : REF BBLOCK; 


= .1OC$GL_AQBLIST; 
iF - EQL .AQB 


HEN 
gg (OCS. AQBLIST = .AQB CAQBSL_LINK] 


438 


BEGIN 

UNTIL Po CAQBSt Link fat .AQB 

DO P AQBSC _LINK 

P aaBsi Atay AQB Ji nopsi LINK); 
END; 


: Deallocate the remaining file control blocks and caches. 
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PUPP DVL SIDS SENOS DE DS DDS DDS VV VIVO SUSUSVSVSTSISTUSTSTSVS ISIS ISIS IST SIOSIOSIOSION OF OF OF 


are REMQUE (.VCBCVCBSL_FCBFLJ, FCB) 
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; 457 4 6 BEGIN : 
3; 6 } 1447 6 FCB CFCBSW_REFCNT) = 0; ! force deq on conv_acclock ‘ 
: 4 1448 6 CONV sett (0, .FCB); ! deq access lock, Tf any : 
; 460 1449 6 IF -BBLOCKCF CBF CBSR ORB) ORBSV ACL QUEUE | : 
; 461 14 6 HEN ACL +f ate (FCBCFCBSL_ACCFLJ> 0); ! Delete the ACL : 
; 46 1451 6 UNTIL REMQUE (.FCBCFCBSL_WLFLJ, WCB) ! deallocate all window : 
; 46 14 § 6 DO DEALLOCATE (.WCB); : oe pent ¢ 
; 464 14 DEALLOCATE (.FCB); : release all FCB's | ; 
; 465 1454 END; ‘ 
; $08 1455 ; 
; 46 14 $ CACHE = pcecyces CACHE]; : 
; 46 \e2 IF .BBLOCK CACHECVCASL _F 1DCACHE] VCASL PiDeLRT NEQ 0 ; 
i 4 1456 THEN DEQ ‘ue Fie stay SCACHECVCASL FIDCACHE), VCASL_FIDCLKID]); : 
; 470 1459 IF .BBLOCK C.CACHE YEAS) AEXICAGHE QCASL EXTCLKID] NEQ 0 ; 
: 471 1460 THEN DEQ_LOCK gPokexe CACHECVCASL_EXTCACHEJ, VCASL_EXTCLKIDJ); : 
; 2y 1093 DEALLOCATE (.VCBLVCBSL_CACHE)); T release the cache block | : 
> 474 1268 CACHE = pVCOLVEBSL OUOCACHE 5 
; 475 1464 IF .CACHE NEQ ! release quota cache if present ; 
; 47 1465 5 THEN | : 
; 47 1466 6 BEG! : 
; 478 1467 6 IF .CACHECVCASL_QUOCLKID] NEQ 0 : 
; 479 1468 6 THEN DEQ LOCK (.CACHECVCASL_QUOCLKID)); : 
; 480 re 4 DEALLOCATE (.VCBCVCBS$L_QUOCACHE]); : 
; 481 1470 END; : 
: 48 1471 ; 
; 48 1e%4 ! Dequeue the volume lock. : 
> 484 147 : : ; 
: 485 1474 : 
: 486 1475 5 DEQ_LOCK (.VCB CVCBSL_VOLLKID]); : 
: 487 1476 : | 

; 488 1477 IF .RVT NEQ .CURRENT_UCB 

5 rt 2 1478 5 THEN 

; 4 1479 6 BEGIN 

; 4491 1480 6 VECTOR CRVTCRVTSL_UCBLST], .VCBCVCBSW_RVNIJ-1] = 0; 

> 49 1481 6 RVTCRVTSW_REFC) =~. RVTCRVTSW_REFC) - 1; 

; 49 et 6 IF .RVTCRUT$SW_REFC) EQL 0 

> 494 148 8 THEN 

: 495 1484 BEGIN 

; rhs pe + 7 

; 74 16 § 4 DEQ_LOCK (.RVTCRVTSL_STRUCLKID)); 

; 499 1488 4 : Dequeve blocking lock and disable blocking check on exit. 

: 30? 1296} 

; 3 1491 7 IF .RVTCRVTSL_BLOCKID) NEQ 0 

; 1e38 4 THEN DEQ LOCK (.RVTCRVTSL_BLOCKIDJ); 

; be 1493 7 BLOCK_CHECK = 0; 

3 5 1494 7 

5 5) 1495 7 DEALLOCATE (.RVT); 

: 350 1638 6 END; 

: 508 149 : END 

; 509 1498 ELSE 

; 510 1499 6 

3 351i 1500 6 IF _VEBEVCRSL PLOFE IO} NEQ 0 

3 \¢ 138) 6 THEN DEQ LOCK (.VCBLVCBSL_BLOCKID)); 

3; 51 1502 6 BLOCK_CHECK = 0; 
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END; 
DEALLOCATE (.VCB); ! release the VCB 
If the rg lock exists, now demote it as appropriate (to CR if 


the device not allocated, to EX otherwise). Clear the value 
block if this is the final dismount. 


+24 
Mw 


—"ODODONOVLS AN “OVO ONOUL 


IF .LKSTS C1) NEQ 0 
THEN 


BEGIN 
LOCAL LKFLGS; 
LKFLGS = LCKSM_CONVERT + LCKSM_CVTSYS 

+ LCKSA_SYNCSTS + LCKSM_NCQUOTA; 


IF .LOCKCOUNT EQL 1 


PVPVLVLVSVSVSIV SV SVS VOSS 
ULV SUSI SVSUSISVSISISISISIOSIS 
td td I IO 
oo 


ss 


OOO NO NE WWI OS OD NO UE WIN 0 OD NOM EWN 0 OOBNAUES WN OVOOnNOVvewn—o 


THEN 
EGIN 
LKFLGS = .LKFLGS + LCKSM_VALBLK; 
LKSTS 3] = 0; 
LKSTS ; = Q; 
LKSTS [4] = 0: 
LKSTS (5) = 0; 
3 ND; 
i Pp STS = SENQ (LKMODE = IF .UCB CUCBS$L_PID] NEQ 0 
4 P THEN LCKS$K_EXMODE 
4 Pp ELSE LCKSK~CRMODE, 
4 Pp LKSB = LKSTS, 
4 P EFN = EFN 
4 FLAGS = .LKFLGS); 
4 IF NOT .STS 
4 OR NO 


T .LKSTS 
he UG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 


eee ie eee Ss 
PIES BDV DAA AAD SAMs PP AAA AAA AA NNN NN NA AA AAA ITT 


LUD IV DVD LV LVLU PVP PVIV LU SIVSIV SU SUSUSUSUIUSUSUS ISIS SUSU SI ST SISTSIIII 


; 3 ; 

3 Z : Call IOCSDALLOC_DMT routine to deallocate the device when appropriate. 
5 4 ; 

: : IOCSDALLOC_DMT (.CTLSGL_PCB, .UCB); 

: ri UNLOCK_IODB (); 

5 4 IF .AQB NEQ 0 

59 4 THEN 

60 4 

61 5 LOCAL P_: REF BBLOCK; 

6¢ 5 P = .AQB CAQBSL_BUF CACHE): 

6 5 EXESDEAPGDSIZ (7P, .P CFIIBCSL_REALSIZEJ); 

64 5 DEALLOCATE (.AQB); 

65 2 END; 

ef 2 END; ! end of dismount processing 
4 : END; ! end of dismount condition 
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-RVT EQL .CURRENT_UCB THEN EXITLOOP; 
' bump loop index 
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i end of aultt-volune loop 


UNTIL .J GTRU .RVT_LENGTH; 


> sb > > _ a 


! end of routine CHECK_DISMOUNT 
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NOW —WooCIo "oO -9omMm—-090-C000 0-008 
DO" DW" 00 FOWI Wi "WOW" O & PW "OO 


SO OWNS = VI NIUIVIO VIGDUIVION IM 
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DMO 
4-000\ 


$GL_PCB, CTL$GL_PHD 

$GL~AQBLIST Cony NACCLOCK 
K_COUNT, WAIT_FOR-AST 

TINUE T HREAD ~ 

m NODE. punt ock 1008 

COCK, DEALLOC CATE 

TCH_C abn NNEL, SEN RLOG 
KPGDS17~ * OFSDAL Oe _DMT 

ACL_DELETEACL, SYS$QI0 

SYSSENQ, BUGS_ xaPERR 


SLOCKEDC1$,NOWRT,2 


MATCH OKRA -O 
xxnmMoOooCooo <= 
mC eae ox 


m 
wr 
on 
mx 


cuect DISMOUNT, Save R2,R3,R4,R5,R6,R7,R8,— ; 


9. RIT 
#48, SP 
-108(BASE), R9 


J 
-164(BASE), RO 
32(R0), RVT 
RVT, (R9) 


1$ 

11¢RVT) «_RVT_LENGTH 
LOCKCOUN 

RVT, UCB 

CB, (R9) 
64(RVT)CJI, UCB 


UCB), 4$ 
9) 


#0, UNLOCK_10DB 


#16, 102(uCB) 
#0, UNLOCK_10DB 


on NO 
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AVE _PRIV 
PTR in 
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000000006 
04 64 «AS 


NUE _ THREAD 
r 100(UCB), 6$ 
#1 
7$ 
: #17 
$: PUSHL 0 ene 
CALLS #12 


MOVG = SAVE Prive, (PTR) 
MOVL goare , PTR 
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58 AB BLBC 3—OsSTS, 32 : 1535 
8 18 AE EB o05A tee aS ts “83s + 1536. 
FEFF Be 32%: UGW 3; 15 
54 6 9 00586 338: ROM. Caeser PCB. Re + 1543 
Boooseg0s 80 $6 tits pat 
00006 CF F C CALLS “1008 + 1545 
p C TST + 1547 
; CA BEQL 3 : 
0 A? D cc MOVL 4(AQB), P + 1551 
1 oc A p MOVL (P) + 1552 
000000006 9 6 00204 JSB EXESDEAPGDS1Z : 
DD OO02DA PUSHL AQB + 1553 
00006 CF 1 F D¢ CALLS #1 DEALLOCATE ; 
69 6 ; e! 34$ CPL rvf, (R9) : 1560 
D Eg INCL + 1562 
6E p E CMPL ‘ RVT_LENGTH > 1564 
A 002EB acTRU 35s : 
FD2D 3 ED BRW 1$ ; 
O2FO 35%: RET + 1566 
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GLOBAL ROUTINE UPDATE _DIRSEQ : L_NORM = 


i FUNCTIONAL DESCRIPTION: 


AFUNHOD 


: directory sequence count incremented 
i ROUTINE VALUE : 


SSeees 


v04 
' 
: 
: This routine bumps the directory sequence count in the UCB to invalidate 
} RMS directory caches on the volume. 
' 

9 i CALLING SEQUENCE: | 
30 : UPDATE _DIRSEQ () | 
% i INPUT PARAMETERS: 
rt, NONE 
95 i IMPLICIT INPUTS: 

38 CURRENT “RY er UCB of device in use 
98 i NVOLS? gi of volumes in volume set 
FS UCBLST: addresses of UCB's in volume set 
601 i OUTPUT PARAMETERS: 
i pi. 
604 ; IMPLICIT OUTPUTS: 
t 
' 
' 
! 
t 
! 
' 
' 


BEGIN 
BIND_COMMON; 


EXTERNAL ROUTINE 
ALLOCATION_LOCK : L_NORM NOVALUE, 
:~L_NORM NOVALUE, 
SuITCH VOLOME =: L_NORM NOVALUE, 
X_N_ CANCEL : LINORM; 
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i SIDE EFFECTS: | 
i NONE 
| 
| 


LOCAL 
CURRVN 


| 
HAD “LotK, 

: REF BBLOCK, ' VCB address 
Nee : REF BBLOCK: ! UCB address 
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: Iterate over the mounted volumes of a volume set if there is one. 
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CURRVN = .CURRENT_RVN; 
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; { 16 4 HAD_LOCK = 0; : 
: 6 16 § IF .LB_LOCKID £0] NEQ 0 | : 
; 6 16 THEN : 
; ert 19 8 HAD_LOCK = 1 | : 
; b4¢ 1630 ALLOCATION LOCK (); | ; 
; 644 163¢ 2 UCB = CURRENT UCB: | : 
: 68 1633 ¢ IF. CURRENT RVT NEG .UCB | ; 
: See 1635 BEGIN ; 
; 648 16 INCR J FROM 1 TO .CURRENT_RVTCRVTSB_NVOLS ; 
; 650 16 8 4 BEGIN : 
: 651 1639 4 VCB = 0; : 
: 6 é 1640 4 UCB = .VECTOR CCURRENT_RVTCRVTSL_UCBLSTJ, .J-1); ; 
; 633 1641 4 1 UCB NEQ a0 3 
; 655 1668 IF (VCB = .UCB CUCBSL_VCBI) NEQ 0 
: $36 1608 $ —T BEGIN : 
: 658 1646 ; SWITCH VOLUME (.J); ; 
: #44 + of ? eX. XNCANCEL (. ia. Lock1D £03); : 
: 661 1649 : 
; 66¢ 1650 switth. VOLUME (.CURRVN); ; 
iB ot oa 
; 665 1638 3 * TOEXNCANCEL (.LB_LOCKID 03); 3 
; 667 1655 IF Not .HAD_LOCK ; 
: 6 i 1657 3 | EN ALLOCATION. UNLOCK ©; : 
; 671 1659 RETURN 1; ; 
: 878 1661 1 END; ! end of routine UPDATE_DIRSEQ : 
.EXTRN ALLOCATION. LOCK ; 

“EXTRN ALLOCATION ; 

-EXTRN SuITCH.VOLORE, MOEX. N_CANCEL : 

OOFC 00000 ENTRY UPDATE DIRSEQ Save R2,R3.R4,R5,R6.R7 : 1567 : 

57 AO AA DO 9002 MOVE (BASE), CURRV : 1622 3 

56 4 006 CLRL LOCK > 1624 : 

6C AA : 0 TSTL Hap LOCK > 1626 : 

5 008 BEQL=Sséd1S : ; 

56 \ p 00 MOVL ue HAD_LOCK > 1628 ; 

00006 CF 0 F 12 1$: CALLS #0 ALLOCATION LOCK + 1630 ; 

94 AA D 1? 28: MOVL “168 (BASE) uce : 16 : ; 

: 9C AA D 1B MOVL 100(BASE). R : 16 ; 

209 D 1F CMPL RO, UCB : ; 

1 22 5$ : F 


eS = a eo 


1 4 VAX=-11 Bliss-32 V4.0-742 18 CH 
1 eats ri 3: 38: %§ DISKSVMSMASTER:CF11X.SRCJCHKDMO.B32: 429 * (3) vo 
55 0B AO 9A 4 MOVZBL 11(RO), RS 3; 1636 : 
» 8 CLAL J 3 > 
1 B BRB 4% : : 
4 04 C 3% CLRL vcB : 1639 ; 
29 9C BAG D MOVAL a-10 yaa alan RO : 1640 6 
4 A 9 MOVL © tae 3 ° 
1 BEQL : 1641 ; 
54 34 AS D 9 MOVL 52(uCcB), vCcB : 1643 ° 
F 1 D BEQL 4 3 : 
¢ i) F PUSHL J 3 1646 ; 
0000G CF FB 41 CALLS #1, SWITCH VOLUME é : 
6C AA OD 46 PUSHL VOB(BASE) + 1647 ; 
00006 gf 1 4 4 CALLS) #1, QEX_N_CANCEL 3 ; 
DA 2 ; F 3 4$ AOBLEQ e bavis 3$ : 1636 > 
00 PUSHL CURRY ; 1650 3 
0000G CF 1 4 4 CALLS @ SWITCH. VOLUME 3 ; 
8 1 9 BRB 3; 1633 ; 
6C AA OD bee 5$: PUSHL pye ‘en : 1653 $ 
00006 ff 9} 4) . 3 CALLS ore N ANCEL 3 ‘ 
5 6€E 065 6$: BLBS af ; 1655 3 
00006 cf 00 FB 00066 CALLS "0, + ALLOCATION, UNLOCK + 1657 ; 
0 01 p00 00068 7$: MOVL 3: 1659 $ 
04 0006€ RET : 1661 3 
; Routine Size: 111 bytes, Routine Base: S$LOCKEDC1$ + 02F1 : 
: 674 166 1 § 
; 675 166 1 END 3 
; 676 1664 0 ELUDOM ; 
5 PSECT SUMMARY 
; Name Bytes Attributes 
3 SLOCKEDC1$ 864 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
eee eet ae ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBILIB.L32;1 18619 84 0 1000 00:02.0 


8 
CHK ;. ep-1984 23:59: VAX-11 Bliss-32 V4,0-742 P 
yOse000 : ~$0071382 13:38:96 DI SKSVMSMASTERSCE1IX.SRCICHKDMO.B32: 1 
3 COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CHKDMO/OBJ=0BJ$:CHKDMO MSRC$:CHKDMO/UPDATE=(ENH$: CHKDMO) 
Size 


; 3 864 ogg + 0 data bytes 
; Run Time: 40.4 


; Elapsed Time: ore 8 
3 Lines/CPU Min: 44 

3 Lexemes/CPU-Min: 45046 

3 "Y Used: 405 pages 
; Compilation Complete 
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AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


-oe. 
V4.0 


AH-BT13A 


DIG 
VAX/VMS CON 


7 
I 


IGI 
ONF 


016 


